Planet Source Code Jumbo …e CD Visual Basic 1 to 7/1_2002.ISO/Data/Zips/PipeMan - 263389122001.psc/modField.bas

BASIC Source File | 2001-09-11 | 498 b | 26 lines

Attribute VB_Name = "modField"
Sub DrawField()
  Dim X As Integer
  Dim Y As Integer
  Dim P As Integer

  For X = 0 To 10
    For Y = 0 To 10
      P = Field(X, Y).PipeType
      frmMain.picField.PaintPicture LoadResPicture(P, 0), X * PipeSize, Y * PipeSize
    Next
  Next
End Sub

Sub ResetField()
  Dim X As Integer
  Dim Y As Integer

  For X = 0 To 10
    For Y = 0 To 10
      Field(X, Y).Watered = False
      Field(X, Y).PipeType = 100
    Next
  Next
End Sub